home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lockco1a / frmpass.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-19  |  3KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPass 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Enter password"
  5.    ClientHeight    =   1935
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5535
  9.    Icon            =   "frmPass.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1935
  14.    ScaleWidth      =   5535
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Timer tmrOkEnabler 
  18.       Interval        =   10
  19.       Left            =   120
  20.       Top             =   1080
  21.    End
  22.    Begin VB.CommandButton cmdCancel 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "C&ancel"
  25.       Height          =   735
  26.       Left            =   2760
  27.       TabIndex        =   5
  28.       Top             =   1080
  29.       Width           =   1935
  30.    End
  31.    Begin VB.CommandButton cmdOk 
  32.       Caption         =   "&Ok"
  33.       Height          =   735
  34.       Left            =   840
  35.       TabIndex        =   4
  36.       Top             =   1080
  37.       Width           =   1935
  38.    End
  39.    Begin VB.TextBox txtPass 
  40.       Height          =   375
  41.       IMEMode         =   3  'DISABLE
  42.       Index           =   1
  43.       Left            =   1920
  44.       PasswordChar    =   "*"
  45.       TabIndex        =   3
  46.       Top             =   600
  47.       Width           =   3495
  48.    End
  49.    Begin VB.TextBox txtPass 
  50.       Height          =   360
  51.       IMEMode         =   3  'DISABLE
  52.       Index           =   0
  53.       Left            =   1920
  54.       PasswordChar    =   "*"
  55.       TabIndex        =   1
  56.       Top             =   120
  57.       Width           =   3495
  58.    End
  59.    Begin VB.Label lblConfirm 
  60.       Alignment       =   1  'Right Justify
  61.       Caption         =   "&Confirm password"
  62.       Height          =   375
  63.       Left            =   120
  64.       TabIndex        =   2
  65.       Top             =   600
  66.       Width           =   1695
  67.    End
  68.    Begin VB.Label lblEnter 
  69.       Alignment       =   1  'Right Justify
  70.       Caption         =   "Enter &password"
  71.       Height          =   375
  72.       Left            =   120
  73.       TabIndex        =   0
  74.       Top             =   120
  75.       Width           =   1695
  76.    End
  77. Attribute VB_Name = "frmPass"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Sub cmdCancel_Click()
  83. 'unload forms from memory
  84. Unload frmLock
  85. Unload frmPass
  86. 'end program
  87. End Sub
  88. Private Sub cmdOk_Click()
  89. 'since OK is only enabled if passwords are the same and
  90. 'not blank, go straight to locked screen
  91. 'start the flashing timer
  92. frmLock.tmrLockedFlash.Interval = 500
  93. 'close this form, load other form
  94. frmLock.Show
  95. frmPass.Hide
  96. End Sub
  97. Private Sub tmrOkEnabler_Timer()
  98. 'must have a password - if any fields blank keep
  99. 'OK disabled
  100. If txtPass(0).Text = "" Or txtPass(1).Text = "" Then
  101.  'only disable if not already disabled
  102.  If cmdOk.Enabled <> False Then cmdOk.Enabled = False
  103.  Exit Sub
  104. End If
  105. If txtPass(0).Text = txtPass(1).Text Then
  106.  'enable OK if passwords are the same
  107.  'only enable if not already enabled
  108.  If cmdOk.Enabled <> True Then cmdOk.Enabled = True
  109.  'disable OK if passwords are different
  110.  'only disable if not already disabled
  111.  If cmdOk.Enabled <> False Then cmdOk.Enabled = False
  112. End If
  113. End Sub
  114.